home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_26_(10-1984).d64 / cursor get_vic (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  389b  |  11 lines
  1. 10 GOSUB1102:PRINTA$;:GOTO10:REM THIS IS THE "HOST" PROGRAM
  2. 1101 GOTO1109:REM GET WITH CURSOR BLINK
  3. 1102 XL%=PEEK(211)
  4. 1103 IFXL%>21THENXL%=XL%-22:GOTO1103
  5. 1104 XL%=XL%+PEEK(214)*22+4096:XC=33792+XL%:IFPEEK(210)>20THENXC=XC+512:XL%=XL%+3584
  6. 1105 POKEXC,PEEK(646):XO%=PEEK(XL%):XT%=XO%:XQ%=128:IFXO%>127THENXQ%=-XQ%
  7. 1106 XT%=XT%+XQ%:POKEXL%,XT%:XQ%=-XQ%:FORXR=1TO60:REM CHANGING 60 CHANGES BLINK SPEED
  8. 1107 GETA$:IFA$<>""THENPOKEXL%,XO%:RETURN
  9. 1108 NEXT XR:GOTO1106
  10. 1109 REM
  11.